perm filename BAZ.LSP[TIM,LSP]2 blob sn#719098 filedate 1983-07-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
CāŠ—;

(defun baz (n)
       (do ((n n (1- n))
	    (a 0))
	   ((= n 0))
	   (setq a (foo (+ (* n n))))))

(defun foo (x) (* x (+ x x)))